home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr47 / ucrasm27.zip / SOURCE.ZIP / PRINT.ASM < prev    next >
Assembly Source File  |  1991-10-12  |  543b  |  38 lines
  1. StdGrp        group    stdlib,stddata
  2. stddata        segment    para public 'sldata'
  3. stddata        ends
  4. ;
  5. stdlib        segment    para public 'slcode'
  6.         assume    cs:stdgrp
  7. ;
  8.         extrn    sl_putc:far
  9. ;
  10. ;
  11.         public    sl_print
  12. sl_print    proc    far
  13.         push    bp
  14.         mov    bp, sp        
  15.         push    ax
  16.         push    es
  17.         push    bx
  18. ;
  19.         les    bx, 2[bp]    ;Get return address
  20.         jmp    short TestZero
  21. ;
  22. PrintLoop:    call    sl_Putc
  23.         inc    bx
  24. TestZero:    mov    al, es:[bx]
  25.         cmp    al, 0
  26.         jnz    PrintLoop
  27. ;
  28.         inc    bx
  29.         mov    2[bp], bx
  30.         pop    bx
  31.         pop    es
  32.         pop    ax
  33.         pop    bp
  34.         ret
  35. sl_print    endp
  36. stdlib        ends
  37.         end
  38.